home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 3032.ZIP / RLIB20.ZIP / RL_ATINS.PRG < prev    next >
Text File  |  1989-02-18  |  708b  |  23 lines
  1. * Function: ATINSAY
  2. * Author..: Richard Low
  3. * Syntax..: ATINSAY( <expN1>, <expN2>, <expC1>, <expC2> )
  4. * Returns.: A Null ('') string after SAYing <expC2>.
  5. * Notes...: @ <expN1>, <expN2> SAYs <expC2> in color setting <expC1>
  6. *
  7.  
  8. FUNCTION ATINSAY
  9.  
  10. PARAMETERS p_row, p_col, p_color, p_string
  11.  
  12. PRIVATE f_incolor
  13.  
  14. *-- first verify parameters were passed and are correct types
  15. IF TYPE('p_row')   + TYPE('p_col') +;
  16.    TYPE('p_color') + TYPE('p_string') = 'NNCC'
  17.    f_incolor = SETCOLOR(p_color)               && save old and set new color
  18.    @ p_row,p_col SAY p_string                    && say the string
  19.    SETCOLOR(f_incolor)                        && restore old color
  20. ENDIF
  21.  
  22. RETURN ('')
  23.